60000 ;********************************* 60010 ;* * 60020 ;* GRAFIK-MAKROS MERGE FILE * 60030 ;* ------------------------ * 60040 ;* ZU DEN * 60050 ;* GIGA-ASS GRAFIK-ROUTINEN * 60060 ;* * 60070 ;********************************* 60080 ; 60090 ;--------------------------------- 60100 ; DIESES FILE IST EINEM GIGA-ASS 60110 ; QUELLTEXT, DER AUF DIE GRAFIK- 60120 ; ROUTINEN ZUGREIFT, MIT DEM "M"- 60130 ; BEFEHL ANZUHAENGEN. 60140 ; 60150 ; DEN MAKROS MUSS UEBER DIE BASIS 60160 ; ADRESSE "BA" MITGETEILT WERDEN, 60170 ; AN WELCHER STELLE IM SPEICHER 60180 ; DIE GRAFIK-ROUTINEN LIEGEN. 60190 ; 60200 ; DIE MAKROS SELBST GREIFEN NUR 60210 ; UEBER DIE DIE GRAFIK-ROUTINEN 60220 ; EINLEITENDE JUMP-TABLE AUF DIE 60230 ; ROUTINEN ZU. 60240 ; 60250 ;--------------------------------- 60260 ; 60270 ; 60280 ;--------------------------------- 60290 ; 60300 ; ZU JEDER GRAFIK-ROUTINE MIT 60310 ; PARAMETERN GIBT ES ZWEI MAKROS: 60320 ; 60330 ; A) EIN MAKRO, DER ALS PARAMETER 60340 ; DIE AKTUELLEN PARAMETER 60350 ; SELBST ALS WERT-PARAMETER 60360 ; ERHAELT 60370 ; ("CALL BY VALUE") 60380 ; 60390 ; B) EIN MAKRO, DER ALS PARAMETER 60400 ; DIEJENIGEN ADRESSEN MITGE- 60410 ; TEILT BEKOMMT, AN DENEN DIE 60420 ; AKTUELLEN PARAMETER STEHEN 60430 ; ("CALL BY REFERENCE") 60440 ; 60450 ; MAKROS VOM TYP B) UNTERSCHEIDEN 60460 ; SICH VON DENJENIGEN VOM TYP A) 60470 ; DURCH EIN ANGEHAENGTES "I" 60480 ; (Z.B. LINEI, FRAMEI, CIRCLEI), 60490 ; WELCHES FUER "INDIREKTE" 60500 ; PARAMETER-ANGABE STEHT. 60510 ; 60520 ;--------------------------------- 60530 ; 60540 TAB(BA=$C000 60550 ; 60560 ;================================= 60570 ; GRAFIK-ROUTINEN UEBERGREIFENDE 60580 ; MAKROS 60590 ;================================= 60600 ; 60610 GETSPACEWAIT 60620 MID$203 60630 STR$#$3C 60640 (null)*-4 60650 MID$203 60660 STR$#$3C 60670 (null)*-4 60680 NEW 60690 GETBORDERCLOSECOLOR 60700 MID$#COLOR 60710 (null)$D020 60720 NEW 60730 GETBACKGROUNDCLOSECOLOR 60740 MID$#COLOR 60750 (null)$D021 60760 NEW 60770 GETINTERRUPT_ON 60780 MID$#$81 60790 (null)$DC0D 60800 NEW 60810 GETLCVCLOSEXCVAL,YCVAL 60820 MID$#<(XCVAL) 60830 PEEK#>(XCVAL) 60840 LEN#YCVAL 60850 NEW 60860 GETLCICLOSEXCADR,YCADR 60870 MID$XCADR 60880 PEEKXCADR+1 60890 LENYCADR 60900 NEW 60910 GETMCVCLOSEXCVAL,YCVAL,ADR 60920 LCVCLOSEXCVAL,YCVAL 60930 (null)ADR 60940 (null)ADR+1 60950 (null)ADR+2 60960 NEW 60970 GETMCICLOSEXCADR,YCADR,ADR 60980 MID$XCADR 60990 PEEKXCADR+1 61000 LENYCADR 61010 (null)ADR 61020 (null)ADR+1 61030 (null)ADR+2 61040 NEW 61050 ; 61060 ; 61070 ;================================= 61080 ; MAKROS ZUM AUFRUF DER 61090 ; GRAFIK-ROUTINEN 61100 ;================================= 61110 ; 61120 GETPAGECLOSEVAL 61130 PEEK#VAL 61140 (null)BA+$00 61150 NEW 61160 GETPAGEICLOSEADR 61170 PEEKADR 61180 (null)BA+$00 61190 NEW 61200 GETDESIGNCLOSEVAL 61210 PEEK#VAL 61220 (null)BA+$03 61230 NEW 61240 GETDESIGNICLOSEADR 61250 PEEKADR 61260 (null)BA+$03 61270 NEW 61280 GETOFF 61290 (null)BA+$06 61300 NEW 61310 GETINV 61320 (null)BA+$09 61330 INTERRUPT_ON 61340 NEW 61350 GETCLEAR 61360 (null)BA+$0C 61370 NEW 61380 GETCOLORCLOSEVAL 61390 MID$#VAL 61400 (null)BA+$0F 61410 NEW 61420 GETCOLORICLOSEADR 61430 MID$ADR 61440 (null)BA+$0F 61450 NEW 61460 GETSETCOLCLOSELNVAL,CLVAL,COVAL 61470 MID$#LNVAL 61480 PEEK#CLVAL 61490 LEN#COVAL 61500 (null)BA+$12 61510 NEW 61520 GETSETCOLICLOSELNADR,CLADR,COADR 61530 MID$LNADR 61540 PEEKCLADR 61550 LENCOADR 61560 (null)BA+$12 61570 NEW 61580 ;--------------------------------- 61590 ; EINZELPUNKT MAKROS 61600 ;--------------------------------- 61610 GETCLEARDOTCLOSEXCVAL,YCVAL 61620 LCVCLOSEXCVAL,YCVAL 61630 (null)BA+$15 61640 INTERRUPT_ON 61650 NEW 61660 GETCLEARDOTICLOSEXCADR,YCADR 61670 LCICLOSEXCADR,YCADR 61680 (null)BA+$15 61690 INTERRUPT_ON 61700 NEW 61710 GETSETCLOSEXCVAL,YCVAL 61720 LCVCLOSEXCVAL,YCVAL 61730 (null)BA+$18 61740 INTERRUPT_ON 61750 NEW 61760 GETSETICLOSEXCADR,YCADR 61770 LCICLOSEXCADR,YCADR 61780 (null)BA+$18 61790 INTERRUPT_ON 61800 NEW 61810 GETTESTCLOSEXCVAL,YCVAL 61820 LCVCLOSEXCVAL,YCVAL 61830 (null)BA+$1B 61840 INTERRUPT_ON 61850 NEW 61860 GETTESTICLOSEXCADR,YCADR 61870 LCICLOSEXCADR,YCADR 61880 (null)BA+$1B 61890 INTERRUPT_ON 61900 NEW 61910 GETACCESSCLOSEXCVAL,YCVAL 61920 LCVCLOSEXCVAL,YCVAL 61930 (null)BA+$1E 61940 INTERRUPT_ON 61950 NEW 61960 GETACCESSICLOSEXCADR,YCADR 61970 LCICLOSEXCADR,YCADR 61980 (null)BA+$1E 61990 INTERRUPT_ON 62000 NEW 62010 ;--------------------------------- 62020 ; MAKROS FUER MEHRERE PUNKTE 62030 ;--------------------------------- 62040 GETLINECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL 62050 MCVCLOSEX0VAL,Y0VAL,BA+$21 62060 MCVCLOSEX1VAL,Y1VAL,BA+$24 62070 (null)BA+$27 62080 INTERRUPT_ON 62090 NEW 62100 GETLINEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR 62110 MCICLOSEX0ADR,Y0ADR,BA+$21 62120 MCICLOSEX1ADR,Y1ADR,BA+$24 62130 (null)BA+$27 62140 INTERRUPT_ON 62150 NEW 62160 GETLINECCLOSEX0VAL,Y0VAL,X1VAL,Y1VALIGA-ASSREADY 62170 MCVCLOSEX0VAL,Y0VAL,BA+$21 62180 MCVCLOSEX1VAL,Y1VAL,BA+$24 62190 (null)BA+$2A 62200 INTERRUPT_ON 62210 NEW 62220 GETLINEICCLOSEX0ADR,Y0ADR,X1ADR,Y1ADR 62230 MCICLOSEX0ADR,Y0ADR,BA+$21 62240 MCICLOSEX1ADR,Y1ADR,BA+$24 62250 (null)BA+$2A 62260 INTERRUPT_ON 62270 NEW 62280 GETFRAMECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL 62290 MCVCLOSEX0VAL,Y0VAL,BA+$2D 62300 MCVCLOSEX1VAL,Y1VAL,BA+$30 62310 (null)BA+$33 62320 INTERRUPT_ON 62330 NEW 62340 GETFRAMEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR 62350 MCICLOSEX0ADR,Y0ADR,BA+$2D 62360 MCICLOSEX1ADR,Y1ADR,BA+$30 62370 (null)BA+$33 62380 INTERRUPT_ON 62390 NEW 62400 GETCFRAMECLOSEX0VAL,Y0VAL,X1VAL,Y1VAL 62410 MCVCLOSEX0VAL,Y0VAL,BA+$2D 62420 MCVCLOSEX1VAL,Y1VAL,BA+$30 62430 (null)BA+$36 62440 INTERRUPT_ON 62450 NEW 62460 GETCFRAMEICLOSEX0ADR,Y0ADR,X1ADR,Y1ADR 62470 MCICLOSEX0ADR,Y0ADR,BA+$2D 62480 MCICLOSEX1ADR,Y1ADR,BA+$30 62490 (null)BA+$36 62500 INTERRUPT_ON 62510 NEW 62520 GETFILLCLOSEXCVAL,YCVAL 62530 LCVCLOSEXCVAL,YCVAL 62540 (null)BA+$39 62550 INTERRUPT_ON 62560 NEW 62570 GETFILLICLOSEXCADR,YCADR 62580 LCICLOSEXCADR,YCADR 62590 (null)BA+$39 62600 INTERRUPT_ON 62610 NEW 62620 GETTEXTCLOSEADR,LINE,COLUMN,EXPX,EXPY,CASE,TEXTCOLOR 62630 MID$#COLUMN 62640 (null)BA+$3C 62650 MID$#LINE 62660 (null)BA+$3D 62670 MID$#EXPX 62680 (null)BA+$3E 62690 MID$#EXPY 62700 (null)BA+$3F 62710 MID$#CASE 62720 (null)BA+$40 62730 MID$#<(ADR) 62740 LEN#>(ADR) 62750 PEEK#TEXTCOLOR 62760 (null)BA+$41 62770 INTERRUPT_ON 62780 NEW 62790 GETTEXTICLOSEIADR,ILINE,ICOLUMN,IEXPX,IEXPY,ICASE,ITEXTCOLOR 62800 MID$ICOLUMN 62810 (null)BA+$3C 62820 MID$ILINE 62830 (null)BA+$3D 62840 MID$IEXPX 62850 (null)BA+$3E 62860 MID$IEXPY 62870 (null)BA+$3F 62880 MID$ICASE 62890 (null)BA+$40 62900 MID$IADR 62910 LENIADR+1 62920 PEEKITEXTCOLOR 62930 (null)BA+$41 62940 INTERRUPT_ON 62950 NEW 62960 GETCIRCLECLOSEXCVAL,YCVAL,RADVAL 62970 MID$#RADVAL 62980 (null)BA+$44 62990 LCVCLOSEXCVAL,YCVAL 63000 (null)BA+$45 63010 INTERRUPT_ON 63020 NEW 63030 GETCIRCLEICLOSEXCADR,YCADR,RADADR 63040 MID$RADADR 63050 (null)BA+$44 63060 LCICLOSEXCADR,YCADR 63070 (null)BA+$45 63080 INTERRUPT_ON 63090 NEW 63100 GETCCIRCLECLOSEXCVAL,YCVAL,RADVAL 63110 MID$#RADVAL 63120 (null)BA+$44 63130 LCVCLOSEXCVAL,YCVAL 63140 (null)BA+$48 63150 INTERRUPT_ON 63160 NEW 63170 GETCCIRCLEICLOSEXCADR,YCADR,RADADR 63180 MID$RADADR 63190 (null)BA+$44 63200 LCICLOSEXCADR,YCADR 63210 (null)BA+$48 63220 INTERRUPT_ON 63230 NEW 63240 GETLINESCLOSEPOINTER 63250 MID$#<(POINTER) 63260 LEN#>(POINTER) 63270 (null)BA+$4B 63280 INTERRUPT_ON 63290 NEW 63300 GETLINESICLOSEIPOINTER 63310 MID$IPOINTER 63320 LENIPOINTER+1 63330 (null)BA+$4B 63340 INTERRUPT_ON 63350 NEW 63360 GETLINESCCLOSEPOINTER 63370 MID$#<(POINTER) 63380 LEN#>(POINTER) 63390 (null)BA+$4E 63400 INTERRUPT_ON 63410 NEW 63420 GETLINESICCLOSEIPOINTER 63430 MID$IPOINTER 63440 LENIPOINTER+1 63450 (null)BA+$4E 63460 INTERRUPT_ON 63470 NEW